"Enter Description: "
DESC
.T.
UPPER(M->DESC)
"Description: "
SAY SCHEME 2
"Enter Application Description"
"File Path  : "
FILE_PATH
"!"+cDRIV_SEP+REPLICATE("!",36)
fnPATH(@M->FILE_PATH)
"Enter Application File Path"
"File Name  : "
FILE_NAME
"!"
fnNAME(M->FILE_PATH,M->FILE_NAME)
"Enter starting procedure name (no extension)"
"Enter User ID: "
USER_ID
UPPER(M->USER_ID)
.t.
LEFT(' '+PROMPT(),1)
"User ID    : "
"Enter User ID (leave blank for application-wide password"
"Password   : "
PASSWORD
"Enter Application/User Password"
cDESC
M->DESC
M->FILE_PATH
M->FILE_NAME
"Index: "
nINDEX
"9"
nINDEX <> 0
"Select Index File"
PROMPT()
"Order: "
nORDER
OBJECT nORDER
"*HT \!\?\<Ascending;\<Descending"
nORDER <> 0
"Select Index Order"
.t. .OR. LEN(RTRIM(M->DESC)) = 0
M->USER_ID
M->PASSWORD